home *** CD-ROM | disk | FTP | other *** search
/ Software Vault: The Gold Collection / Software Vault - The Gold Collection (American Databankers) (1993).ISO / cdr48 / pasclern.zip / REPEATLP.PAS < prev    next >
Pascal/Delphi Source File  |  1993-04-01  |  297b  |  15 lines
  1. PROGRAM repeat_loop_example;
  2.  
  3. VAR count : INTEGER;
  4.  
  5. BEGIN
  6.   count := 4;
  7.   REPEAT
  8.     WRITE('This is in the ');
  9.     WRITE('REPEAT loop, and ');
  10.     WRITE('the index is',count:4);
  11.     WRITELN;
  12.     count := count + 2;
  13.   UNTIL count = 20;
  14.   WRITELN(' We have completed the loop ');
  15. END.